home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / MiscKit1.7.1 / MiscKit / Temp / Text_more / Text_more.m < prev    next >
Text File  |  1995-04-12  |  1KB  |  70 lines
  1. /* Text_more.m                 
  2.  *
  3.  * This category makes dealing with the Text object easier. 
  4.  * See the docu for details.
  5.  *
  6.  * For interface-info see the header file. The comments in this file mostly
  7.  * cover only the real implementation details.
  8.  *
  9.  * Written by:         Thomas Engel
  10.  * Created:            30.01.1995 (Copyleft)
  11.  * Last modified:     30.01.1995
  12.  * Copyright (C) 1995 Thomas Engel
  13.  */
  14.  
  15. // The following define is a fake. Looks like NeXT...but it is a cheatmode
  16. // action.
  17. // We don't have a RTFD paste type. But I really need one !
  18.  
  19. #define NXRTFDPboardType NXUniqueString("NeXT RTFD pasteboard type")
  20.  
  21.  
  22. #import "Text_more.h"
  23.  
  24. @implementation Text(More)
  25.  
  26. - copyTo:aPasteboard
  27. {
  28.     NXAtom textTypes[5];
  29.  
  30.     if( [self isMonoFont] )
  31.     {
  32.         textTypes[0] = NXAsciiPboardType;
  33.         textTypes[1] = NULL;
  34.     }
  35.     // In the other case we will cheat. The RTFD type was NEVER defined by
  36.     // NeXT. But we will use it...it works. (see the define)
  37.  
  38.     else
  39.     {
  40.         textTypes[0] = NXRTFDPboardType;
  41.         textTypes[1] = NXTIFFPboardType;
  42.         textTypes[2] = NXRTFPboardType;
  43.         textTypes[3] = NXAsciiPboardType;
  44.         textTypes[4] = NULL;
  45.     }
  46.     [self writeSelectionToPasteboard:aPasteboard types:textTypes];
  47.     return self;
  48. }
  49.  
  50. - cutTo:aPasteboard
  51. {
  52.     [self copyTo:aPasteboard];
  53.     [self delete:self];
  54.     return self;
  55. }
  56.  
  57. - pasteFrom:aPasteboard
  58. {
  59.     [self readSelectionFromPasteboard:aPasteboard];
  60.     return self;
  61. }
  62.  
  63. @end
  64.  
  65. /*
  66.  * History: 30.01.95 Buh
  67.  *            
  68.  *
  69.  * Bugs: - ...
  70.  */